home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Q-R / QuickTurtle.cpt / QuickTurtle / QTPrograms / variableC_Curve.t / variableC_Curve.t
Encoding:
Text File  |  1991-06-29  |  978 b   |  30 lines  |  [TEXT/>QT<]
  1. -- This program draws C-like curves for angles other than 90°.
  2.  
  3. -- When you run the program (selecting “Run” from the Program menu), a
  4. -- dialog appears asking for values for 2 parameters — i.e., the “level”
  5. -- and “angle” parameters of the “ccurve” procedure.  Anything up to about
  6. -- 15 is good for “level” (each level higher takes twice as long to draw as
  7. -- the previous level); anything from 45 to 90 is good for “angle”.
  8.  
  9. program ccurve
  10.  
  11. on C length, level, angle
  12.   if level > 0 then
  13.       C length, level-1, angle
  14.       turn right (level -2) * angle
  15.       C length, level-1, angle
  16.   else forward length
  17. end C
  18.  
  19. on ccurve level, angle
  20.     put 2 * (cos(angle/2)) into scaleFactor
  21.     put 220 into length
  22.     repeat level
  23.         put length/scaleFactor into length
  24.     end repeat
  25.     set position 115,-82
  26.     set heading (level * ((180 - angle)/2) - (180 - angle))¬
  27.                                              - ((level-1) * (90-angle))
  28.     C length,level, angle
  29. end ccurve
  30.